home *** CD-ROM | disk | FTP | other *** search
/ H4CK3R 14 / hacker14.iso / programacao / visual / perl.exe / {app} / Webroot / cgi-bin / time1.pl < prev    next >
Encoding:
Perl Script  |  2003-01-11  |  213 b   |  12 lines
  1. #!perl
  2.  
  3. use CGI ':standard';
  4.  
  5. $current_time = localtime;
  6.  
  7. print header,
  8.      start_html('A Virtual Clock'),
  9.      h1('A Virtual Clock'),
  10.      "The current time is $current_time.",
  11.      hr,
  12.      end_html;